VBSメモ

(for Internet Explorer)

の Path プロパティや Name プロパティは、

処理速度が遅いです。

暗号化されたスクリプトファイルの拡張子は、.vbe です。

cscript //x script.vbs

デバッグを中止するときは、スクリプトを実行しているコマンドプロンプトを
終了します。(cscript 使用時のみ可能） wscript のプロセスを終了させるには、
タスクマネージャーを使うか、コマンドプロンプトから次のように入力します。
taskkill /IM "wscript.exe" /F

途中で止めたいときは、ブレークポイントを張るか、Stop 命令をスクリプト中に記述
します。

起動コマンド：

WSH のデバッガーをインストールしてから、次のように //x を付けて起動すると、
デバッガが起動し、スクリプトの先頭で止まります。

バッチファイルやショートカットにするとよいでしょう。

デバッガーの画面：

WSH のデバッガー

インストールすると、自動的に使えるようになります。

確認済み： 2005, 2008, 2010, 2012, 2013, 2015 の Standard, Professional, Community 以上。
Express Edition は、WSH をデバッグできません。（VC++, VB, VC#, WebDev）

[ デバッグ > ウィンドウ > イミディエイト ] を選ぶと、? に続けて式を入力すると、実行して
結果を表示できます。

エラーが発生したりブレークしたら、[ デバッグ > ウィンドウ > 呼び出し履歴 ] から、関数の
呼び出し関係を確認できます。

エラーが発生したりブレークしたら、変数を右クリック、または、式を選択して右クリック
[ ウォッチ式の追加 ] を選ぶと、値を確認できます。

JIT のリストから「新しいインスタンス Visual Studio xxxx」を表示させないようにするには、
Visual Studio [ ツール > オプション > デバッグ > Just-In-Time ] の [ スクリプト ] のチェックを
はずします。

Visual Studio のソリューション・エクスプローラーのソリューションを右クリック [ 名前の
変更 ] で名前の先頭に a をつけると、Just In Time Debugger のリストの先頭に表示され
ます。もし、「ソリューション名を変更できません」エラーが出るときは、
C:\WINDOWS\system32\*.suo を削除してください。

デバッガーを選択するときのリストの先頭にデバッガーを移動する

フルインストールすると、自動的に、Microsoft Script Editor がインストールされます。

メニューの [ ツール(T) > マクロ(M) > Microsoft Script Editor(E) ] でもインストールが始まります。

JIT のリストから「新しいインスタンス Microsoft Script Editor」を表示させないようにするには、
Excel [ ツール > マクロ > Microsoft Script Editor > ツール > オプション > デバッグ > JIT の設定
> JIT デバッグを有効にする ] のチェックをはずします。

MS Office 2007, 2010 には、WSH のデバッガーは入っていません。

[ スタート > すぺてのプログラム > アクセサリ > コマンドプロンプト ] から、下記のように
入力します。

"C:\Program Files\Microsoft Script Debugger\msscrdbg.exe" /regserver

"C:\Program Files\Microsoft Script Debugger\msscrdbg.exe" /unregserver

?Err.Description
型が一致しません。

アンインストールするには、コマンドプロンプトに下記コマンドを入力してから、

エラーが発生したら、[ 表示 > コマンドウィンドウ ] から、次のように入力すると、エラーメッセージを
確認できます。

Windows XP の場合：

Windows 7 / 8(RP) の場合：

上記から、scd10jp.exe をダウンロードする。
Windows 8(RP) では、安全ではないと表示されますが、問題ありません。
ダウンロード・フォルダーなどにできたものを使ってください。

scd10jp.exe を右クリック [ 管理者として実行 ]。インストール先は、デフォルトのまま。
再起動はしなくても構いません。

スタート [ プログラムとファイルの検索 ] に [ regedit ] と入力して
（Windows 8(RP) では、スタート画面を表示させて、キーボードから [ regedit ] と入力して）
[ Enter ] キーを押し、
[HKEY_CLASSES_ROOT\CLSID\{834128A2-51F4-11D0-8F20-00805F2CD064}\LocalServer32]
の（既定）に、C:\Program Files\Microsoft Script Debugger\msscrdbg.exe を入力する。

scd10jp.exe をダブルクリック。インストール先は、デフォルトのまま。
再起動はしなくても構いません。

上記から、scd10jp.exe をダウンロードする。

GetEchoStr 関数 (要vbslib) を使うと、オブジェクトの型や、配列の要素を確認できます。

?GetEchoStr( object )

? に続けて変数名や、ピリオドに続けてプロパティ名を入力すると、値を確認できます。

エラーが発生したりブレークしたら、[ 表示 > 呼び出し履歴 ] から、関数の呼び出し関係を確認でき
ます。

コントロールパネルから、Microsoft Script Debugger をアンインストールする。

スクリプトの中の、途中で止めたい場所に、Stop 命令を記述して、
[ スタート > すぺてのプログラム > アクセサリ > コマンドプロンプト ] から、

デバッグを中止するときは、スクリプトを実行しているコマンドプロンプトを終了します。(cscript 使用
時のみ可能） wscript のプロセスを終了させるには、タスクマネージャーを使うか、コマンド
プロンプトから次のように入力します。 taskkill /IM "wscript.exe" /F

のように入力すると、デバッガーに接続します。実行を開始すると、Stop 命令で止まります。

cscript //x script.vbs

デバッガーの使い方：

アンインストールするには、regedit を起動して、
[HKEY_CLASSES_ROOT\CLSID\{834128A2-51F4-11D0-8F20-00805F2CD064}\LocalServer32]
の（既定）に、C:\Windows\system32\mdm.exe を入力してから、
コントロールパネルから、Microsoft Script Debugger をアンインストールする。

インテリセンス（作りかけ :P）

JScript なら、一部のメンバーについて、インテリセンスが使えるようです。

Option Explicit

Class ClassA
Public m_A
End Class

main

Sub main
WScript.Echo "1"
Stop
Dim ClassA : Set ClassA = new ClassA
WScript.Echo TypeName(ClassA)
End Sub

デバッガを使う場合と使わない場合で動きが異なるものがあります。

クラス名と同じ名前のローカル変数を使うと、
・デバッガなし：正常動作
・デバッガあり：下記エラーで停止

Microsoft VBScript 実行時エラー: クラスが定義されていません。: 'ClassA'

エラーメッセージは、デバッガに接続すると、標準エラー出力の代わりに、デバッガの
出力ウィンドウに表示されますが、内容が異なります。

C:\Folder\Sample.vbs(0, 1) ERROR: Pass.

デバッガなし：標準エラー出力へ

デバッガなし：デバッガの出力ウィンドウへ

FuncA から戻ったときに r が宣言されていないときなど。

コーディングしたばかりのソースを始めて実行するときは、ステップ実行して１つずつ
実行の様子を確認するとよいでしょう。

Stop ← スタート
（コーディングしたばかりのソース１）
（コーディングしたばかりのソース２）
（コーディングしたばかりのソース３）
Stop ← ゴール

初めて実行するときは、コーディングしたばかりのソースの最初と最後に、Stop 命令
やブレークポイントを置きます。

途中でエラーが発生したら、エラーが発生した直前に、最初の Stop 命令やブレーク
ポイントを移動したり、コピーします。

（コーディングしたばかりのソース１）
（コーディングしたばかりのソース２）
Stop ← 続き
（コーディングしたばかりのソース３） ←エラーがあった
Stop ← ゴール

ステップ実行しているときに、自分でチェックしたことがあれば、それをテストスクリプト
に反映させるとよいでしょう。

最後の Stop 命令やブレークポイントに到達して、正しい結果が得られたら、
デバッグ完了です。
もし、到達しなかったら、異常終了した可能性があります。

Visual Studio が起動してから、
[ デバッグ | ウィンドウ | ブレークポイント | 新規作成 | 関数でブレーク ]
で、関数にブレークポイントを張っておくと、スクリプトを再起動しても
ブレークポイントが張られた状態から起動できます。
関数名またはメソッド名を入力します。

クラスを指定することはできません。
（ClassA::MethodA と入力しても ClassA.MethodA と入力しても、止まりません。

ブレーク中に表示されているソースに書かれている変数にカーソルを合わせると、値を確認できます。

[ デバッグ | ウィンドウ | ウォッチ ] で表示されるウィンドウに、選択中の変数をドラッグ＆ドロップする
と、値を表示し続けることができます。

デバッガでブレーク中に [ デバッグ | ウィンドウ | イミディエイト ] で表示したウィンドウに、一時的に
関数などを実行することができるウィンドウです。

上記の例は、ユーザーが定義した FuncA 関数を呼び出して、返り値を表示しています。
? は、Debug.Print の省略形です。

エラーが起きた場所で、正しいパラメーターを探すのに使えます。

r=2
式を評価できません。
? FuncA( r )
5

エラーメッセージは気にしなくて構いません。

Dim x : SubA x : ? x

サブルーチン SubA が出力した x を表示する

デフォルトでは、エラーが発生すると、エラーメッセージを表示して、そこで終了します。

WScript.Echo Err ' 0 表示
NO_OBJ.ERROR ' エラー
WScript.Echo Err ' 実行しない

On Error Resume Next を実行した後なら、続きを実行します。

On Error Resume Next
WScript.Echo Err ' 0 表示
NO_OBJ.ERROR ' エラー
WScript.Echo Err ' 424 表示

プロシージャの中で On Error Resume Next を実行ても、プロシージャの外には影響しません。

WScript.Echo "Main" & Err ' Main 0 表示
SubA
NO_OBJ.ERROR ' エラー、終了
WScript.Echo "Main" & Err ' 実行しない

Sub SubA
On Error Resume Next
WScript.Echo "Sub " & Err ' Sub 0 表示
NO_OBJ.ERROR ' エラー、次へ
WScript.Echo "Sub " & Err ' Sub 424 表示
End Sub

次を実行しない

On Error Resume Next を実行してから呼び出したサブ・プロシージャの中で発生した場合、
エラーメッセージは表示しませんが、サブ・プロシージャの中で On Error Resume Next を
するかどうかで、動きが異なります。
サブ・プロシージャの中で On Error Resume Next をしないときは、終了ではなくプロシージャ
から戻って、メインの続きを実行します。

On Error Resume Next
SubA
WScript.Echo "Main " & Err ' Main 424 表示

Sub SubA
On Error Resume Next
WScript.Echo "Sub " & Err ' Sub 0 表示
NO_OBJ.ERROR ' エラー、次へ
WScript.Echo "Sub " & Err ' Sub 424 表示
End Sub

On Error Resume Next
SubA
WScript.Echo "Main " & Err ' Main 424 表示

Sub SubA
WScript.Echo "Sub " & Err ' Sub 0 表示
NO_OBJ.ERROR ' エラー、関数終了
WScript.Echo "Sub " & Err ' 実行しない
End Sub

エラー処理中として戻る

エラーが発生して初めてブレークするのは、On Error Resume Next をした
関数になります。呼び出し先のどこで発生したかを知るには、ステップ実行
するしかありません。

WScript.Quit すると、グローバル以外のオブジェクトの Class_Terminate は呼ばれません。

WSHでは、GoTo 文は使えません。

Dim en,ed

ErrCheck : On Error Resume Next
...
en = Err.Number : ed = Err.Description : On Error GoTo 0
If en = 2 Then ... : en = 0
If en <> 0 Then Err.Raise en,,ed

VBS では、エラーが発生すると、メッセージを表示して強制終了します。
On Error Resumt Next して、Err オブジェクトをチェックすると、エラー時の動作を変えることができます。

プログラムを終了します

On Error Resume Next

If en = 2 Then ... : en = 0

Visual Studio 2005 のデバッガは、On Error Resume Next していないときにエラーが発生すると、
その続きを実行することはできません。 Visual Studio 2008 のデバッガは、エラーが発生しても、
ステップ実行で続きを実行することができます。
ただし、両デバッガとも、On Error Resume Next した後でエラーが発生してもブレークしません。

Dim obj : Set obj = new ClassA
WScript.Echo "Not 'On Resume Next'"

Class ClassA
Private Sub Class_Initialize()
NO_OBJ.ERROR
End Sub
End Class

コンストラクタでエラーが発生すると、new の続きを実行してしまいます。

← On Resume Next をしていないのに、
　　実行してしまう。

（VBA では使えます。）

Err オブジェクトは、どこからでも参照できます。

最初にエラーを発生させたオブジェクトまたはアプリケーションの名前

On Error Resume Next

NO_OBJ.ERROR

WScript.Echo "Err.Number = " & Err.Number
WScript.Echo "Err.Description = " & Err.Description
WScript.Echo "Err.Source = " & Err.Source

Err.Clear

WScript.Echo "Err.Number = " & Err.Number
WScript.Echo "Err.Description = " & Err.Description
WScript.Echo "Err.Source = " & Err.Source

On Error GoTo 0

WScript.Echo ""
Err.Raise 62 'ファイルの最後を超えた入力を～エラー

Err.Number = 424
Err.Description = オブジェクトがありません。
Err.Source = Microsoft VBScript 実行時エラー
Err.Number = 0
Err.Description =
Err.Source =

C:\Documents and Settings\masanori.toda\デスクトップ\script.vbs(18, 1) Microsoft
VBScript 実行時エラー: ファイルの最後を超えた入力を行おうとしました。

（関連） On Error GoTo 0 は

エラーをクリアします。 Err.Number は 0 になり、他のプロパティもリセットします。

が変わるだけでなく、エラーのクリアもします。

エラーメッセージに出る値に 0x800A0000 を引いた値（？）

エラーが発生した行番号は取得できません

エラー番号が 1～0x7FFF の場合、エラーメッセージには、エラー番号＋
0x800A0000 した値がエラーコードとして表示されます。
「未知の実行時エラーです。」と表示されたエラー番号を
ユーザが使うことができそうです。下記のコードで確認できます。

エラー番号は下記のように確認できます。

object.Raise(number, source, description, helpfile, helpcontext)

エラーの補助情報も作成できます。 Err オブジェクトから参照できます。

Err.Raise vbObjectError + 1, "vbslib", "エラー1"

Err.Raise vbObjectError + N

Option Explicit
On Error Resume Next
Dim i
For i=1 To &h7FFF
Err.Raise i
If Err.Description <> "未知の実行時エラーです。" Then
WScript.Echo Err.Description & "(" & Err.Number & ")"
End If
Err.Clear
Next

オートメーションオブジェクト内で独自のエラー番号を設定するときには
vbObjectError = 0x80040000 + N を指定することが MSDN に書かれていますが、
一部はすでに値が使われており、適当でないエラーメッセージが表示されます。

プロシージャの呼び出し、または引数が不正です。(5)
オーバーフローしました。(6)
メモリが不足しています。(7)
インデックスが有効範囲にありません。(9) #########
固定サイズの配列、または現在、この配列はサイズを変更できない状態にあります。(10)(&hA)
0 で除算しました。(11)(&hB)
型が一致しません。(13)(&hD) #########
文字列領域が不足しています。(14)(&hE)
要求された操作を実行できません。(17)(&h11) #########
スタック領域が不足しています。(28)(&h1C)
Sub または Function が定義されていません。(35)(&h23)
DLL 読み込み時のエラーです。(48)(&h30)
内部エラーです。(51)(&h33)
ファイルの名前または数が不正です。(52)(&h34)
ファイルが見つかりません。(53)(&h35) #########
ファイルのモードが不正です。(54)(&h36)
ファイルは既に開かれています。(55)(&h37)
デバイス I/O (入出力) エラーです。(57)(&h39)
既に同名のファイルが存在しています。(58)(&h3A) #########
ディスクの空き容量が不足しています。(61)(&h3D)
ファイルの最後を超えた入力を行おうとしました。(62)(&h3E) #########
ファイル数が多すぎます。(67)(&h43)
このデバイスは使用できません。(68)(&h44)
書き込みできません。(70)(&h46) #########
ディスクは準備されていません。(71)(&h47)
異なったドライブでも名前の変更はできません。(74)(&h4A)
パスまたはファイル名が無効です。(75)(&h4B) #########
パスが見つかりません。(76)(&h4C) #########
オブジェクト型の変数は設定されていません。(91)(&h5B)
For ループは初期化されていません。(92)(&h5C)
Null 値の使い方が不正です。(94)(&h5E)
必要なテンポラリファイルが作成できません。(322)(&h142)
オブジェクトがありません。(424)(&h1A8) #########
ActiveX コンポーネントはオブジェクトを作成できません。(429)(&h1AD)
クラスはオートメーションをサポートしていません。(430)(&h1AE)
オートメーションの操作中にファイル名またはクラス名を見つけられませんでした。(432)(&h1B0)
オブジェクトでサポートされていないプロパティまたはメソッドです。(438)(&h1B6)
オートメーションエラーです。(440)(&h1B8)
このオブジェクトではサポートされていない操作です。(445)(&h1BD)
このオブジェクトは、名前付き引数をサポートしていません。(446)(&h1BE)
現在の国別情報の設定は、このオブジェクトではサポートされていません。(447)(&h1BF)
名前付き引数が不正です。(448)(&h1C0)
引数は省略できません。(449)(&h1C1)
引数の数が一致していません。または不正なプロパティを指定しています。(450)(&h1C2)
オブジェクトがコレクションではありません。(451)(&h1C3)
指定された DLL に関数が定義されていません。(453)(&h1C5)
コードリソースのロックエラーです。(455)(&h1C7)
このキーは既にコレクション内の要素に関連付けられています。(457)(&h1C9)
VBScript でサポートされていないオートメーションが変数で使用されています。(458)(&h1CA)
リモートサーバマシンが存在しないか、利用できません。(462)(&h1CE)
ピクチャが不正です。(481)(&h1E1)
この変数は宣言されていません。(500)(&h1F4)
不正な代入です。(501)(&h1F5)
このオブジェクトは safe モードでは作成できません。(502)
このオブジェクトは safe モードでは初期化できません。(503)
このオブジェクトは safe モードでは作成できません。(504)
不正な参照です。(505)
クラスが定義されていません。(506)
例外が発生しました。(507)
メモリが不足しています。(1001)
構文エラーです。(1002)(&h3EA) #####
':' がありません。(1003)
'(' がありません。(1005)
')' がありません。(1006)
']' がありません。(1007)
識別子がありません。(1010)
'=' がありません。(1011)
'If' がありません。(1012)
'To' がありません。(1013)
'End' がありません。(1014)
'Function' がありません。(1015)
'Sub' がありません。(1016)
'Then' がありません。(1017)
'Wend' がありません。(1018)
'Loop' がありません。(1019)
'Next' がありません。(1020)
'Case' がありません。(1021)
'Select' がありません。(1022)
式がありません。(1023)
ステートメントがありません。(1024)
ステートメントの末尾が不正です。(1025)
整数型の定数がありません。(1026)
'While' または 'Until' がありません。(1027)
'While'、'Until' または終了するためのステートメントがありません。(1028)
'With' ステートメントがありません。(1029)
識別子が長すぎます。(1030)
不正な数字です。(1031)
文字が正しくありません。(1032)
終了していない文字列型の定数です。(1033)
終了していないコメントです。(1034)
'Me' キーワードの使い方が不正です。(1037)
'do' がありません。(1038)
不正な 'exit' ステートメントです。(1039)
'for' ループを制御する変数が不正です。(1040)
名前が二重に定義されています。(1041)
行頭のみ許されるステートメントです。(1042)
値渡しの変数に割り当てられません。(1043)
Sub プロシージャを呼び出すときに、かっこを使うことはできません。(1044)
リテラル定数を指定してください。(1045)
'In' がありません。(1046)
'Class' がありません。(1047)
クラスの内部で宣言しなければなりません。(1048)
プロパティの宣言に Let、Set または Get がありません。(1049)
'Property' ステートメントがありません。(1050)
プロパティで指定した引数の数は、同じでなければなりません。(1051)
クラスでは、既定のプロパティ/メソッドを複数個選択することはできません。(1052)
クラスの初期化または終了に引数がありません。(1053)
Property set または Property let には少なくとも 1 つの引数が必要です。(1054)
'Next' が不正です。(1055)
'Default' は 'Property'、 'Function' または 'Sub' の場合にのみ指定できます。(1056)
'Default' 指定する場合には、'Public' も指定されていなければなりません。(1057)
'Default' の指定は、 Property Get にのみ適用されます。(1058)
Microsoft VBScript コンパイルエラー(4096)
Microsoft VBScript 実行時エラー(4097)
Regular Expression オブジェクトがありません。(5016)
正規表現で構文エラーが発生しました。(5017)
文字の繰り返しを表す正規表現演算子が不正です。(5018)
正規表現の中に ']' を指定してください。(5019)
正規表現の中に ')' を指定してください。(5020)
文字セットの範囲が不正です。(5021)
JA(30000)
True(32766)
False(32767)

1000～4096 は、コンパイルエラーのようです。

Err.Raise で下記の番号を指定すると、エラーメッセージが自動的につきます